home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 6
/
006.d81
/
snoopy calendar
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
295 lines
0 dim m(30):printchr$(14)
1 print"[147]":poke53281,0:poke53280,5
2 print"[212]his program requires a printer. [201]f":print"you do not have one, ";
3 print"please press <[210][197][212][213][210][206]>."
4 poke198,0:wait198,1:geta$:ifa$=chr$(13)then63000
10 print"[147] [212]his program is to print a calendar of the year specified."
20 print:print"[197]nter the year you want printed--";:inputy
30 num$=str$(y):iflen(num$)<>5then20
90 y5=y-(100*int(y/100)):ify5/4<>int(y5/4)then110
100 l4=1
110 print
120 e=int((y-1000)/1000)
130 y1=y+e
140 z=int(y1/28)
150 y2=y1-(z*28)
160 ify2=0then300
170 ify2>14then190
180 ony2goto200,220,260,300,320,200,220,260,280,300,320,200,240
190 ony2-14goto260,280,320,200,220,240,280,300,320,200,240,260,280
200 d=0
210 goto340
220 d=-1
230 goto340
240 d=-2
250 goto340
260 d=-3
270 goto340
280 d=-4
290 goto340
300 d=-5
310 goto340
320 d=-6
340 print"[147] [212]his program will print out a picture"
345 print"of snoopy followed by whatever two"
350 print"statements you would like, then "
360 print"a calendar will be printed."
370 print:print:print
380 print"[200]ow many lines of message 0,1, or 2";:poke198,0:wait198,1:getx1:printx1
390 print
400 ifx1=0then500
410 ifx1=1then470
420 ifx1=2then480
430 ifx1>2then2010
470 print"[197]nter the line you want printed.":inputr$:goto500
480 print"[197]nter the 1st line":inputr$
485 print"[197]nter the 2nd line":inputs$
500 open4,4,7:forq=1to9:print#4:next
510 x1$="[216]":x2$="[216][216]":x3$="[216][216][216]":x4$="[216][216][216][216]":x5$="[216][216][216][216][216]"
520 s1$=" ":s2$=" ":s3$=" ":s4$=" "
530 s5$=" ":s6$=" ":s7$=" "
540 r%=len(r$):r%=40-(r%/2)
550 s%=len(s$):s%=40-(s%/2)
600 w1=10
610 print#4,spc(w1)s6$s6$s3$x4$
620 print#4,spc(w1)s6$s6$s2$x1$s4$x2$
630 print#4,spc(w1)s6$s6$s1$x1$s2$"***"s2$x1$s6$s6$s6$x4$x1$
640 print#4,spc(w1)s6$s6$x1$s2$"*****"s2$x1$s6$s6$s2$x3$s5$x2$
650 print#4,spc(w1)s6$s3$x4$s1$"*******"s2$x3$s6$s1$x4$s6$s4$x2$
660 print#4,spc(w1)s6$s1$x2$s3$x1$" ****** "x4$x5$s6$s6$s5$x2$" xxx"
670 print#4,spc(w1)s5$x2$s6$s1$"x **** "x1$s6$s6$s6$s6$s4$"x***x"
680 print#4,spc(w1)s4$x1$s6$s3$x2$s4$x2$s6$s1$x1$s6$s6$s5$s5$"x***x"
690 print#4,spc(w1)s3$x1$s6$s4$"//xxxx"s6$s3$x1$spc(22)x4$
700 print#4,spc(w1)s2$x1$s6$s4$"// x"spc(30)x2$
710 print#4,spc(w1)s1$x1$s6$s4$"// x"spc(11)x5$x5$x5$x3$"/"
720 print#4,spc(w1)s1$x1$s6$x3$"//"s5$x1$spc(11)x1$
730 print#4,spc(w1)s1$x1$s5$x1$s3$x1$s6$x1$spc(10)x1$
740 print#4,spc(w1)s1$x1$s5$x1$s4$x1$s5$x1$spc(9)x1$
750 print#4,spc(w1)s2$x1$s4$x1$s4$x1$s5$x1$spc(9)x1$spc(20)x2$
760 print#4,spc(w1)s2$x1$s5$x1$s3$x1$s5$x1$spc(9)x1$spc(17)x3$" xx"
770 print#4,spc(w1)s3$x1$s5$x3$s6$s1$x1$s5$s4$x1$spc(15)"x x x x"
780 print#4,spc(w1)s3$x1$s5$s3$s6$s1$x1$s5$s5$x1$spc(14)"xx x xxxx"
790 print#4,spc(w1)s4$x1$s5$s5$s5$x1$s5$s5$x4$x4$"/"s5$x2$s3$"xx x"
800 print#4,spc(w1)s5$x2$spc(14)x2$spc(15)x1$s5$x1$" x xx"
810 print#4,spc(w1)s7$x2$spc(14)x4$s4$x3$x3$"/"s5$"x xxxx"
820 print#4,spc(w1+9)x3$spc(15)"xx***"spc(10)x1$s5$x1$
830 print#4,spc(w1+12)x5$x5$x4$" * *"spc(9)x1$s5$x1$
840 print#4,spc(w1+26)"*---* x"s7$x1$s5$x1$
850 print#4,spc(w1+25)"*-* * xxx x x"
860 print#4,spc(w1+25)"*- *"s7$x4$s4$x1$
870 print#4,spc(w1+24)"*- *x"s5$s6$x4$
880 print#4,spc(w1+24)"*- *x x"spc(12)x3$
890 print#4,spc(w1+23)"*- *x x"spc(13)x2$
900 print#4,spc(w1+23)"*- *xx x"spc(13)x1$
910 print#4,spc(w1+22)"* *x* x x"spc(13)x1$
920 print#4,spc(w1+22)"* *x * x x"spc(13)x1$
930 print#4,spc(w1+21)"* * x** x xxxx"spc(10)x1$
940 print#4,spc(w1+21)"* * x** xx x"spc(10)x1$
950 print#4,spc(w1+20)"* ** x** x xx"spc(10)x1$
960 print#4,spc(w1+20)"* ** x* xxx x"spc(9)x1$
970 print#4,spc(w1+19)"* ** xx xxxx"spc(9)x3$
980 print#4,spc(w1+18)"* * * xxxx"s7$x1$s6$x1$
990 print#4,spc(w1+17)"* * *"spc(10)x1$s6$x1$s6$x1$
1000 print#4,spc(w1)s2$"=======******* * *"spc(12)x1$s6$x1$s7$x4$x4$"/"
1010 print#4,spc(w1)s2$" * * *"spc(7)"/xxxxx"s7$x4$x5$"/ )"
1020 print#4,spc(w1)s4$"=====********** *"s6$x1$spc(23)") / )"
1030 print#4,spc(w1)s6$"====*"s6$s3$"*"s6$x1$spc(16)"/ / )"x5$
1040 print#4,spc(w1)s2$"=========**********"s6$s2$x5$x5$x5$x5$x4$
1050 print#4:print#4
1060 print#4,spc(r%)r$
1070 print#4
1090 print#4,spc(s%)s$
1100 print#4:print#4:print#4
1130 h(1)=int(y/1000)
1140 h(2)=int(y/100)-(h(1)*10)
1150 h(3)=int(y/10)-(h(1)*100+h(2)*10)
1160 h(4)=y-(h(1)*1000+h(2)*100+h(3)*10)
1170 forf=1to4:print#4:printf,h(f)+1
1180 onh(f)+1gosub2020,2110,2200,2290,2380,2470,2560,2650,2740,2830
1190 nextf
1200 rem dim m(30)
1210 ifl4=1then1240
1220 j6=26
1230 goto1250
1240 j6=13
1250 forn=1toj6
1260 readm(n)
1270 nextn
1280 ifj6=13then1340
1290 n=0
1300 forn4=14to26
1310 n=n+1
1320 m(n)=m(n4)
1330 nextn4
1340 forn=2to13
1350 fori=1to5
1360 print#4
1370 nexti
1380 s=s+m(n-1)
1390 print#4,spc(10);"**";s;
1400 fori=1to19
1410 print#4,"*";
1420 nexti
1430 onn-1goto1440,1460,1480,1500,1520,1540,1560,1580,1600,1620,1640,1660
1440 print#4," [202]anuary ";
1450 goto1670
1460 print#4," [198]ebruary ";
1470 goto1670
1480 print#4," [205]arch ";
1490 goto1670
1500 print#4," [193]pril ";
1510 goto1670
1520 print#4," [205]ay ";
1530 goto1670
1540 print#4," [202]une ";
1550 goto1670
1560 print#4," [202]uly ";
1570 goto1670
1580 print#4," [193]ugust ";
1590 goto1670
1600 print#4," [211]eptember ";
1610 goto1670
1620 print#4," [207]ctober ";
1630 goto1670
1640 print#4," [206]ovember ";
1650 goto1670
1660 print#4," [196]ecember ";
1670 fori=1to19
1680 print#4,"*";
1690 nexti
1700 ifl4=1then1730
1710 print#4,365-s;"**"
1720 goto1740
1730 print#4,366-s;"**"
1740 print#4
1750 print#4,spc(10);" [211] [205] [212] [215] [212] [198]";
1752 print#4," [211]"
1760 print#4
1770 print#4,spc(10);
1780 fori=1to62
1790 print#4,"*";
1800 next i
1810 forw=1to6
1820 print#4
1830 print#4," ";
1840 forg=1to7
1850 d=d+1
1860 d2=d-s
1870 ifd2>m(n)then1940
1880 ifd2<1thenprint#4," ";:goto1900
1890 print#4,d2;:rem left$(str$(d2),len(str$(d2)-1));
1900 gosub2930
1910 next g
1920 ifd2=m(n)then1950
1930 print#4:nextw
1940 d=d-g
1950 print#4," ";:nextn
1960 data0,31,29,31,30,31,30,31,31,30,31,30,31
1970 data0,31,28,31,30,31,30,31,31,30,31,30,31
1980 forq2=1to15
1990 print#4
2000 nextq2
2010 goto2970
2020 w2=16+7*f
2030 print#4,spc(w2)" 000 "
2040 print#4,spc(w2)" 0 0 "
2050 print#4,spc(w2)" 0 0 "
2060 print#4,spc(w2)" 0 0 "
2070 print#4,spc(w2)" 0 0 "
2080 print#4,spc(w2)" 0 0 "
2090 print#4,spc(w2)" 000 "
2100 return
2110 w2=16+7*f
2120 print#4,spc(w2)" 1 "
2130 print#4,spc(w2)" 11 "
2140 print#4,spc(w2)" 1 "
2150 print#4,spc(w2)" 1 "
2160 print#4,spc(w2)" 1 "
2170 print#4,spc(w2)" 1 "
2180 print#4,spc(w2)" 11111 "
2190 return
2200 w2=16+7*f
2210 print#4,spc(w2)" 222 "
2220 print#4,spc(w2)" 2 2 "
2230 print#4,spc(w2)" 2 "
2240 print#4,spc(w2)" 2 "
2250 print#4,spc(w2)" 2 "
2260 print#4,spc(w2)" 2 "
2270 print#4,spc(w2)" 22222 "
2280 return
2290 w2=16+7*f
2300 print#4,spc(w2)" 333 "
2310 print#4,spc(w2)" 3 3 "
2320 print#4,spc(w2)" 3 "
2330 print#4,spc(w2)" 33 "
2340 print#4,spc(w2)" 3 "
2350 print#4,spc(w2)" 3 3 "
2360 print#4,spc(w2)" 333 "
2370 return
2380 w2=16+7*f
2390 print#4,spc(w2)" 4 "
2400 print#4,spc(w2)" 44 "
2410 print#4,spc(w2)" 4 4 "
2420 print#4,spc(w2)" 4 4 "
2430 print#4,spc(w2)" 44444 "
2440 print#4,spc(w2)" 4 "
2450 print#4,spc(w2)" 4 "
2460 return
2470 w2=16+7*f
2480 print#4,spc(w2)" 55555 "
2490 print#4,spc(w2)" 5 "
2500 print#4,spc(w2)" 5 "
2510 print#4,spc(w2)" 555 "
2520 print#4,spc(w2)" 5 "
2530 print#4,spc(w2)" 5 "
2540 print#4,spc(w2)" 5555 "
2550 return
2560 w2=16+7*f
2570 print#4,spc(w2)" 666 "
2580 print#4,spc(w2)" 6 6 "
2590 print#4,spc(w2)" 6 "
2600 print#4,spc(w2)" 6666 "
2610 print#4,spc(w2)" 6 6 "
2620 print#4,spc(w2)" 6 6 "
2630 print#4,spc(w2)" 666 "
2640 return
2650 w2=16+7*f
2660 print#4,spc(w2)" 77777 "
2670 print#4,spc(w2)" 7 "
2680 print#4,spc(w2)" 7 "
2690 print#4,spc(w2)" 7 "
2700 print#4,spc(w2)" 7 "